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Notes on The Compiler—Memo 7 

by J. McCarthy 

We will start with a very modest compiler. Our first 
major goal is a compiler that will compile recursive function 
definitions. Its input will be LISP statements in restricted 
notation and its output will be a SAP tape. However we will 
start with an even simpler compiler that will only compile 
programs to evaluate expressions and at first we will print 
these rather than punch them. 

The main routine of this preliminary version is compute 
(L,C). Here L is an expression such that we want a program 
to evaluate it and C is where the result is to be put. The 
value of compute (L,C) is a list structure version of the 
SAP program that performs the computation. 

The first thing that compute*(L,C) does is branch on 
car(L), The cases are: 

1. car(L)*-l 

2. car(L)*car 

3. car(L)=cdr 

4. car(L)=cons 

5» car(L)»eq 

6. car(L)«cond 

7» car(L)»list 

8. other 

The programs for some of these cases follow: 

1. car(L)*-l—» 
move(L,C) 

2. car(L)*car—4 

1ist(compute(cadr(L),ir4),cla04, move(aean,C)) 

3. car(L)=cdr——^ 

1is t(compute(cadr(L),ir4),cla04,move(acdn,C)) 

4. car(L)=*cons-^ 

list(compute(eadr(L),corac(cadr(L))),compute(caddr(L),acde) 
lLst(in8t„8td,cadr(L)),list(inst,Zl,Z§Z3),list(inst, 

sxd(ll),(inst,ldq,cadr(L)),(Inst,claOl),(inst,stq01) 
(inst,pdx01),{lnst,lxdtl,4),move(ir4,C)) 
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